From 56a90080671e78d71866e04363b8599d9022217a Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 30 Jan 2009 18:30:52 +0000 Subject: [PATCH] (unrmail): Fix conversion of BABYL attributes into Rmail-mbox attributes. --- lisp/mail/unrmail.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/mail/unrmail.el b/lisp/mail/unrmail.el index a6ec4bffc4d..95ff727f077 100644 --- a/lisp/mail/unrmail.el +++ b/lisp/mail/unrmail.el @@ -145,9 +145,10 @@ For example, invoke `emacs -batch -f batch-unrmail RMAIL'." (if (string-match ", deleted," label-line) ?D ?-) (if (string-match ", edited," label-line) ?E ?-) (if (string-match ", filed," label-line) ?F ?-) - (if (string-match ", resent," label-line) ?R ?-) - (if (string-match ", unseen," label-line) ?\ ?-) - (if (string-match ", stored," label-line) ?S ?-))) + (if (string-match ", retried," label-line) ?R ?-) + (if (string-match ", forwarded," label-line) ?S ?-) + (if (string-match ", unseen," label-line) ?U ?-) + (if (string-match ", resent," label-line) ?r ?-))) ;; Delete the special Babyl lines at the start, ;; and the ***EOOH*** line, and the reformatted header if any. -- 2.30.2